
*********************************************
****   Description   ************************
*********************************************

* This program generates "Figure 6. Advertising Persuasion Intensity: The Use of False Claims and Prescriptive Stereotypes across Banks" using our advertising dataset. 

set scheme s2mono
 
*********************************************
****   Plot   *******************************
*********************************************
use $Data/Advertising_ML_Roberta_December2024.dta, clear 
drop if cosine_falseclaim_group_mean<0

duplicates drop Text, force
twoway (scatter  cosine_falseclaim_group_mean cosine_pres_group_mean if FSB==0 [fweight=nwords], mcolor(gs12)) /// 
(scatter cosine_falseclaim_group_mean cosine_pres_group_mean if FSB==1 [fweight=nwords], mcolor(gs5)),  ///
ylab(, nogrid) legend(order(2 "Freedman's Savings Bank" 1 "Other Banks"))  legend( region(lstyle(none)) ) graphregion(fcolor(white))
 


